Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  798 1685 (N44E13 L=356)  2490    350        7 ( 623/1634- 943/1740)  -4.2 E28-W00 N39-N49
      2 1470 1551 (N28W37 L= 45)  2184    430        1 (1325/1434-1615/1707) -51.7 W30-W45 N19-N40
      3 1564 1657 (N35W52 L= 60)   567     66        1 (1527/1640-1601/1678)  -7.1 W47-W55 N34-N37
      4 1130 1489 (N26W11 L= 19)  2221    450        8 ( 969/1362-1287/1617) -46.5 W01-W19 N17-N36
      5  421 1521 (N35E44 L=324)  1335    313        4 ( 297/1461- 549/1564) -15.3 E63-E30 N29-N39
      6  724 1497 (N30E17 L=351)   575    168        2 ( 662/1446- 793/1536) -33.7 E21-E12 N26-N33
      7  743 1355 (N21E16 L=352)   456    186        0 ( 692/1318- 804/1421) -40.6 E19-E11 N18-N25
      8  224 1278 (N20E59 L=309)  2730    375        5 ( 148/1155- 322/1397) -24.8 E87-E46 N11-N29
      9  493 1309 (N20E33 L=335)   372     94        2 ( 456/1275- 530/1337) -33.7 E36-E30 N17-N21
     10  768 1163 (N08E15 L=353)   421    171        0 ( 684/1148- 841/1187)   0.0 E19-E09 N07-N09
     11  167 1116 (N11E64 L=304)   517     84        1 ( 153/1064- 179/1156) -80.5 E66-E62 N07-N13
     12 1808  982 (S09W55 L= 63)   390     67        1 (1794/ 948-1825/1020)  76.0 W53-W57 S10-S06
     13  982  997 (S03E03 L=  5)   182     30        0 ( 957/ 980-1004/1011) -18.4 E04-E01 S04-S02
     14  897  840 (S12E09 L=359)  1169    302        3 ( 855/ 697- 969/ 963)  60.6 E12-E03 S20-S04
     15  359  734 (S14E49 L=320)   976    191        0 ( 334/ 637- 399/ 813)  45.0 E53-E43 S19-S09
     16 1086  711 (S21W02 L= 10)   627    244        0 (1004/ 605-1147/ 790)  50.7 E04-W05 S27-S16
     17  662  645 (S22E27 L=341)   250     37        1 ( 638/ 627- 685/ 662) -45.0 E28-E25 S23-S20
     18  265  585 (S22E66 L=302)  1538    157        6 ( 231/ 509- 308/ 650)  59.0 E71-E59 S27-S17
     19  577  451 (S34E40 L=328)   277     61        0 ( 557/ 422- 595/ 478)  31.0 E43-E38 S35-S32
     20 1690  445 (S44W60 L= 68)   495     44        1 (1659/ 426-1718/ 461)   6.3 W54-W65 S45-S42
     21  429  344 (S40E67 L=301)  1174    102        1 ( 380/ 319- 469/ 367)  -8.7 E75-E58 S42-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