Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1650 1605 (N18W64 L=187)   568     62        1 (1633/1568-1673/1634)  23.2 W59-W67 N16-N19
      2 1737 1557 (N12W69 L=192)  1552    152        7 (1687/1496-1792/1623)  83.7 W66-W74 N07-N16
      3 1587 1563 (N18W55 L=178)   391     56        3 (1554/1541-1613/1584) -21.8 W52-W58 N16-N19
      4 1676 1501 (N12W58 L=181)   351     58        0 (1654/1475-1698/1531) -90.0 W56-W59 N09-N14
      5 1244 1374 (N19W23 L=146)   340     80        0 (1202/1354-1289/1388) -18.4 W19-W25 N17-N20
      6 1073 1293 (N20W10 L=133)   408    131        0 (1018/1255-1123/1322) -51.3 W07-W12 N16-N22
      7 1870 1124 (S14W60 L=183)  5385    325        5 (1807/1032-1941/1290)  86.4 W52-W70 S21-S04
      8  428 1076 (N24E36 L= 87)  1941    440        3 ( 275/ 928- 555/1234) -50.4 E49-E29 N13-N36
      9  716 1066 (N16E16 L=107)   337    149        0 ( 652/1045- 795/1091) -40.6 E19-E11 N13-N19
     10 1828 1009 (S19W52 L=175)   892    124        3 (1776/ 978-1887/1043) -26.6 W47-W59 S22-S15
     11 1819  951 (S22W50 L=173)   583    104        2 (1780/ 928-1856/ 988) -20.6 W46-W54 S23-S19
     12 1459  845 (S16W20 L=143)   502    184        0 (1425/ 769-1486/ 936)  48.8 W15-W23 S19-S11
     13 1584  664 (S31W25 L=148)  3225    523        3 (1448/ 495-1723/ 899)  29.7 W11-W39 S39-S20
     14  977  785 (S05E09 L=114)   250     84        0 ( 929/ 773-1016/ 799) -21.8 E11-E06 S06-S04
     15  798  705 (S05E21 L=102)   473    136        0 ( 783/ 623- 817/ 768)  63.4 E23-E18 S09-S01
     16 1232  680 (S18W02 L=125)   267     82        0 (1215/ 641-1251/ 732)  51.3 W00-W04 S20-S15
     17  513  680 (S00E40 L= 83)   252     89        0 ( 481/ 658- 559/ 693)  -9.5 E42-E36 S01-N00
     18  980  566 (S18E15 L=108)   915    294        1 ( 937/ 429-1035/ 692)  42.9 E22-E08 S25-S12
     19  645  661 (S04E32 L= 91)   215     13        0 ( 625/ 643- 665/ 678) -63.4 E32-E30 S05-S03
     20 1143  532 (S25E07 L=116)   538    277        0 (1093/ 421-1189/ 659)  49.4 E13-E01 S31-S17
     21  339  496 (S08E63 L= 59)   480    105        1 ( 307/ 457- 369/ 545) -80.5 E65-E61 S10-S04
     22  302  461 (S10E72 L= 51)   746     95        3 ( 267/ 414- 326/ 488)  78.7 E76-E68 S12-S07
     23 1019  405 (S29E19 L=104)   345     94        0 ( 969/ 390-1071/ 420) -38.7 E22-E16 S31-S27
  

    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