Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1456 1678 (N30W50 L=295)   560    113        0 (1417/1628-1491/1710)  80.5 W47-W52 N26-N32
      2 1209 1579 (N31W27 L=272)   245     82        1 (1188/1540-1232/1614)  59.0 W24-W28 N28-N33
      3  541 1560 (N47E23 L=222)   388     55        1 ( 514/1537- 578/1578)  -9.5 E25-E19 N45-N49
      4 1421 1548 (N23W39 L=284)   424     80        1 (1387/1524-1463/1573) -53.1 W36-W41 N21-N25
      5  401 1528 (N49E39 L=206)   620     79        1 ( 373/1487- 432/1564)  68.2 E42-E34 N45-N51
      6 1431 1432 (N17W35 L=280)   472    206        0 (1349/1385-1494/1496)   8.7 W27-W40 N15-N19
      7  919 1468 (N31W04 L=249)  1063    273        2 ( 783/1442-1045/1487) -14.0 E04-W12 N28-N33
      8 1209 1196 (N09W14 L=259)  1246    327        2 (1082/1153-1366/1233) -13.2 W06-W23 N04-N11
      9 1808 1129 (S09W54 L=299)   309     40        1 (1787/1099-1822/1159)  56.3 W51-W55 S11-S07
     10  350 1009 (N16E43 L=202)  1005    200        4 ( 268/ 934- 428/1065) -36.9 E50-E37 N10-N20
     11  572  822 (N01E31 L=214)   214     71        0 ( 556/ 786- 586/ 862)  71.6 E32-E29 N00-N03
     12 1079  806 (S10E02 L=243)   184     69        1 (1058/ 764-1093/ 836)  76.0 E02-W00 S12-S08
     13 1060  668 (S18E06 L=239)   276     98        1 (1020/ 639-1098/ 702) -59.0 E07-E04 S20-S14
     14 1669  658 (S34W36 L=281)   685    143        1 (1603/ 623-1722/ 700)   5.2 W29-W40 S35-S31
     15  645  607 (S12E32 L=213)   285    109        0 ( 586/ 590- 693/ 628)  -7.1 E36-E28 S13-S10
     16  533  585 (S11E41 L=204)   254     71        1 ( 519/ 553- 550/ 616)  53.1 E42-E38 S13-S09
     17  649  490 (S19E37 L=208)   235     51        1 ( 636/ 458- 662/ 521)  53.1 E38-E34 S21-S17
     18  547  332 (S27E54 L=191)  1787    224        3 ( 459/ 287- 665/ 364)   0.0 E69-E42 S29-S24
     19  987  242 (S45E28 L=217)  1402    188        2 ( 902/ 198-1064/ 299)   6.7 E36-E19 S47-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