Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  838 1758 (N34E39 L=172)   372     59        1 ( 818/1738- 860/1789) -18.4 E42-E36 N32-N36
      2  577 1759 (N27E60 L=150)   524     37        1 ( 553/1732- 601/1782) -18.4 E65-E56 N25-N28
      3  435 1693 (N19E69 L=142)   869    103        1 ( 394/1659- 472/1728)  71.6 E71-E66 N16-N22
      4  773 1639 (N24E35 L=175)   507    143        2 ( 717/1582- 800/1678) -20.6 E39-E31 N20-N26
      5  603 1637 (N19E47 L=164)   338     62        0 ( 580/1617- 634/1664) -15.9 E50-E43 N18-N20
      6  936 1606 (N26E23 L=187)   326     96        0 ( 910/1557- 952/1643) -33.7 E26-E20 N23-N28
      7 1505 1436 (N33W18 L=229)   821    264        0 (1433/1329-1535/1533) -50.7 W10-W21 N26-N38
      8 1016 1428 (N17E12 L=199)   245     63        0 (1002/1392-1030/1461) -63.4 E13-E10 N15-N19
      9  414 1339 (S03E47 L=164)  1838    268        4 ( 334/1241- 473/1454)  74.1 E50-E43 S10-N04
     10 1345 1393 (N25W08 L=219)   499    197        2 (1297/1308-1370/1451) -53.1 W04-W11 N19-N27
     11  275 1358 (S04E61 L=150)  1091    134        2 ( 245/1289- 302/1418) -32.5 E68-E56 S08-S01
     12 1716 1378 (N38W38 L=249)   463     83        1 (1696/1332-1739/1411)  63.4 W36-W41 N34-N40
     13 1055 1289 (N10E06 L=205)   447    145        1 (1014/1254-1111/1351) -14.0 E09-E01 N08-N13
     14 1298 1254 (N15W09 L=220)   231     67        0 (1265/1234-1330/1272)   0.0 W06-W11 N14-N16
     15 1779 1107 (N22W47 L=258)   384     61        0 (1757/1071-1794/1134) -45.0 W44-W49 N20-N23
     16  428  987 (S23E37 L=174)   860    233        0 ( 346/ 922- 490/1075)  53.1 E43-E33 S27-S15
     17 1120  876 (S11W09 L=220)   313     87        0 (1085/ 841-1158/ 905)  68.2 W08-W10 S13-S08
     18  952  885 (S15E00 L=210)   193     24        0 ( 927/ 869- 974/ 902)  63.4 E01-W01 S15-S13
     19 1014  856 (S15W04 L=215)   470    114        3 ( 971/ 826-1054/ 895)  71.6 W01-W05 S17-S11
     20 1194  827 (S11W15 L=226)   361    113        2 (1158/ 799-1252/ 857)  51.3 W12-W17 S13-S08
     21  778  722 (S29E06 L=204)  1155    407        3 ( 623/ 682- 957/ 797)  12.8 E18-W04 S31-S23
     22  661  426 (S53E06 L=204)   686    139        0 ( 598/ 399- 725/ 461)   0.0 E13-W00 S54-S50
     23 1329  410 (S30W42 L=253)   274     58        0 (1314/ 379-1342/ 441) -31.0 W40-W45 S31-S28
     24 1296  264 (S40W54 L=264)   367     48        0 (1283/ 237-1310/ 291) -33.7 W50-W57 S41-S37
  

    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