Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1147 1639 (N41W27 L=128)  1114    175        4 (1100/1576-1190/1719)  55.0 W22-W33 N35-N45
      2  694 1698 (N59E09 L= 92)   303     49        1 ( 669/1680- 716/1717)  18.4 E12-E06 N57-N60
      3 1354 1685 (N37W45 L=146)   391     83        1 (1328/1646-1388/1706)  15.9 W42-W49 N34-N38
      4 1555 1664 (N30W61 L=162)   757     91        1 (1508/1639-1601/1683)  -8.7 W54-W67 N28-N31
      5 1167 1463 (N29W20 L=121)   434    102        0 (1139/1415-1200/1506)  81.9 W18-W21 N25-N32
      6 1756 1464 (N13W65 L=166)   960     91        2 (1722/1416-1791/1501) -90.0 W62-W68 N09-N15
      7 1808 1479 (N12W74 L=175)   645     72        3 (1781/1451-1832/1500) -76.0 W68-W79 N09-N13
      8 1259 1401 (N23W24 L=124)   376     52        2 (1223/1378-1291/1431) -14.0 W21-W25 N21-N25
      9  990 1304 (N24W04 L=105)   259     31        1 ( 967/1284-1020/1325) -56.3 W02-W05 N22-N25
     10  592 1283 (N31E23 L= 78)   397     98        0 ( 542/1251- 632/1307) -33.7 E26-E20 N28-N33
     11  934 1087 (N13E04 L= 97)   202    123        0 ( 921/1040- 964/1146)  56.3 E05-W00 N09-N15
     12  264 1103 (N25E53 L= 47)   506    110        1 ( 240/1056- 291/1144)  68.2 E55-E50 N22-N27
     13 1176 1076 (N07W10 L=110)   683    252        2 (1072/1014-1257/1118) -41.6 W04-W13 N01-N10
     14  143 1050 (N23E70 L= 31)   599     84        0 ( 128/1023- 157/1091) -63.4 E72-E67 N21-N25
     15 1365 1019 (S01W20 L=120)   236     92        0 (1317/1000-1407/1042)   0.0 W16-W22 S01-N00
     16  416  943 (N14E40 L= 60)   637    206        0 ( 357/ 874- 452/ 984)  80.5 E45-E37 N09-N16
     17  183  857 (N11E66 L= 35)  1504    200        1 ( 141/ 776- 220/ 940) -59.0 E71-E61 N06-N16
     18 1900  858 (S26W64 L=164)  1303    167        1 (1864/ 788-1942/ 933)  23.2 W58-W72 S29-S23
     19 1571  901 (S13W31 L=131)   310     44        0 (1546/ 884-1602/ 919) -26.6 W28-W32 S14-S11
     20  917  840 (S01E10 L= 91)   263     41        1 ( 900/ 805- 937/ 873)  71.6 E10-E08 S03-N00
     21 1402  787 (S15W17 L=118)   658    220        0 (1342/ 728-1464/ 865) -68.2 W14-W20 S19-S08
     22 1728  831 (S21W42 L=143)   368    109        0 (1697/ 799-1748/ 857) -53.1 W39-W44 S23-S19
     23 1523  763 (S20W25 L=126)   252     75        0 (1488/ 742-1554/ 783) -11.3 W22-W27 S21-S17
     24 1295  690 (S18W09 L=109)   420    164        0 (1260/ 628-1343/ 763) -84.3 W07-W10 S23-S13
     25 1707  735 (S27W40 L=140)   364     61        0 (1686/ 705-1730/ 761)  36.9 W37-W42 S28-S25
     26 1540  573 (S33W24 L=125)   482     31        0 (1511/ 550-1571/ 598) -36.9 W22-W26 S35-S30
     27  708  514 (S17E31 L= 69)   850    182        2 ( 641/ 456- 763/ 596)  30.3 E38-E25 S19-S12
     28 1393  431 (S39W11 L=112)  1660    243        2 (1313/ 348-1462/ 533)  32.7 W03-W17 S44-S32
     29  572  461 (S18E43 L= 57)   585     91        0 ( 524/ 436- 613/ 491) -45.0 E45-E40 S20-S15
     30 1092  324 (S39E14 L= 87)  3864    661        6 ( 802/ 187-1349/ 435)   4.4 E45-W07 S44-S34
     31 1285  172 (S63E07 L= 94)   576     90        0 (1246/ 157-1330/ 191)  -5.2 E11-W00 S65-S60
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y