Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  656 1770 (N37E44 L=297)   556     78        0 ( 617/1750- 698/1785)  18.4 E47-E39 N34-N38
      2  473 1727 (N32E59 L=282)   492     40        0 ( 448/1705- 500/1747) -11.3 E63-E53 N29-N33
      3  763 1708 (N33E31 L=310)   277     53        0 ( 733/1683- 791/1728) -31.0 E33-E28 N31-N34
      4  951 1443 (N17E11 L=330)   249    108        0 ( 905/1429-1015/1457)  15.9 E13-E06 N16-N18
      5 1298 1323 (N15W12 L=353)  2610    573       14 (1166/1188-1431/1421)  -9.5 W02-W20 N06-N21
      6  212 1351 (N05E64 L=277)   758     89        1 ( 193/1302- 236/1392) -63.4 E66-E61 N01-N07
      7 1187 1323 (N14W05 L=346)   225     41        2 (1158/1304-1215/1341)  18.4 W03-W06 N12-N15
      8 1057 1288 (N10E02 L=339)   370     55        1 (1024/1260-1086/1311)  18.4 E03-W00 N07-N11
      9 1376 1266 (N13W17 L=358)   328     78        2 (1344/1241-1416/1296) -11.3 W15-W20 N11-N14
     10  196 1275 (S00E63 L=278)   442     70        0 ( 173/1243- 225/1295)  18.4 E65-E59 S02-N01
     11 1585  947 (S02W35 L= 16)   351    112        0 (1524/ 935-1639/ 961)  20.6 W31-W39 S03-N00
     12 1107  914 (S11W06 L=347)   181     53        1 (1079/ 889-1131/ 930)   0.0 W04-W08 S12-S10
     13 1551  526 (S26W46 L= 27)  4407    978       11 (1252/ 387-1851/ 915)  49.1 W26-W61 S37-N02
     14 1265  881 (S11W16 L=357)   184     50        0 (1248/ 855-1280/ 911)  90.0 W15-W17 S12-S08
     15  346  846 (S25E45 L=296)  1188    288        1 ( 253/ 774- 485/ 897)  17.7 E54-E32 S29-S20
     16 1013  706 (S25W04 L=345)  2442    738        5 ( 797/ 626-1332/ 863)  -3.2 E10-W26 S29-S17
     17  378  684 (S35E43 L=298)   514     86        1 ( 335/ 660- 421/ 714)  21.8 E48-E38 S36-S32
     18 1480  651 (S20W36 L= 17)   455    143        0 (1418/ 624-1538/ 675)  20.6 W31-W39 S21-S17
     19  342  546 (S44E53 L=288)   830    151        2 ( 273/ 531- 427/ 569)   2.6 E63-E41 S45-S42
     20  595  526 (S43E25 L=316)   311     85        0 ( 560/ 505- 643/ 548)  -8.1 E27-E20 S44-S41
  

    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