Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  736 1772 (N44E33 L=324)   685    140        0 ( 685/1749- 805/1793)  11.3 E38-E26 N41-N45
      2 1105 1659 (N37W00 L=357)  1714    388        2 ( 918/1592-1240/1734) -16.3 E14-W10 N33-N41
      3  613 1712 (N38E40 L=316)   367     56        1 ( 580/1690- 636/1728) -15.9 E44-E37 N36-N39
      4 1568 1621 (N40W39 L= 36)  1042    148        1 (1501/1586-1639/1662) -13.0 W33-W46 N36-N42
      5  327 1543 (N24E60 L=297)  3702    218        6 ( 263/1476- 392/1616)  56.3 E71-E51 N19-N29
      6  382 1461 (N19E49 L=307)   607    106        2 ( 359/1417- 408/1509)  74.1 E51-E47 N15-N22
      7 1532 1356 (N20W31 L= 27)  1007    187        2 (1488/1280-1558/1440) -84.8 W27-W33 N14-N25
      8  784 1412 (N17E18 L=338)   225     93        0 ( 735/1400- 832/1426)  -8.1 E21-E14 N16-N17
      9 1703 1217 (N13W44 L= 41)   939    204        0 (1620/1165-1788/1271) -15.9 W37-W52 N10-N15
     10 1615 1199 (N11W37 L= 33)   469    122        0 (1594/1134-1633/1256) -74.1 W35-W38 N07-N14
     11  662 1082 (S04E23 L=334)   883    242        1 ( 628/ 983- 719/1198)  71.6 E24-E19 S09-N03
     12 1203 1098 (N01W10 L=  6)   181     48        0 (1179/1080-1228/1115)  18.4 W08-W11 N00-N01
     13  332  912 (S15E47 L=310)   727    125        0 ( 277/ 885- 389/ 947) -16.7 E51-E41 S16-S12
     14 1861  773 (S11W66 L= 62)  1438    148        1 (1836/ 702-1885/ 853) -66.0 W63-W69 S15-S06
     15 1256  795 (S17W16 L= 13)   238     94        0 (1203/ 785-1301/ 806)   8.1 W12-W19 S17-S15
     16  988  773 (S20E00 L=356)   229    127        0 ( 934/ 756-1047/ 794)  18.4 E03-W03 S21-S18
     17  441  603 (S34E42 L=314)  1988    336        2 ( 339/ 495- 509/ 751)  34.2 E59-E33 S41-S24
     18 1535  677 (S21W38 L= 34)   337     47        1 (1507/ 650-1552/ 710) -63.4 W35-W39 S22-S18
     19  227  629 (S33E67 L=289)   669     83        0 ( 201/ 592- 248/ 669)  15.9 E75-E61 S34-S30
  

    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