Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1366 1612 (N30W42 L=189)  1477    319        2 (1206/1589-1508/1633) -28.8 W31-W51 N24-N35
      2 1688 1447 (N11W56 L=204)   488     52        1 (1661/1429-1718/1474) -53.1 W53-W58 N08-N12
      3 1129 1388 (N24W16 L=164)   762    256        2 ( 999/1354-1235/1433) -33.7 W09-W22 N19-N29
      4  194 1217 (N37E62 L= 85)   502     97        2 ( 161/1183- 224/1257)  20.6 E67-E58 N34-N38
      5 1854 1187 (S09W61 L=208)   734     93        1 (1821/1156-1897/1212)  -4.8 W56-W68 S09-S07
      6 1850 1059 (S15W56 L=204)  3490    284        9 (1739/ 968-1908/1176)  11.8 W43-W68 S20-S10
      7 1774 1112 (S10W50 L=197)   843    115        2 (1735/1072-1826/1165) -56.3 W47-W54 S12-S06
      8  620 1073 (N19E23 L=125)  1158    314        0 ( 496/1005- 761/1152) -43.0 E30-E15 N12-N26
      9  149  972 (N22E68 L= 79)   723     87        0 ( 123/ 937- 179/1016) -39.8 E72-E63 N19-N24
     10 1905  971 (S23W62 L=210)  1128     93        4 (1864/ 938-1941/1011)  10.3 W56-W70 S24-S20
     11 1011  877 (S01E04 L=143)   380    131        2 ( 983/ 835-1059/ 913)  26.6 E06-E01 S03-N01
     12 1447  677 (S24W16 L=164)  1994    381        6 (1348/ 518-1541/ 826)  39.5 W06-W24 S32-S16
     13 1768  774 (S29W44 L=191)   801     59        3 (1736/ 738-1793/ 814)  36.9 W40-W46 S31-S27
     14 1008  629 (S15E11 L=136)   310     95        2 ( 967/ 607-1045/ 657) -21.8 E13-E08 S16-S12
     15  945  598 (S15E16 L=132)   482    109        1 ( 912/ 553- 990/ 644)  80.5 E17-E13 S17-S11
     16  657  451 (S17E39 L=108)  1316    216        6 ( 580/ 367- 710/ 529)  67.4 E45-E34 S24-S12
     17  988  505 (S22E16 L=131)   233     64        1 ( 958/ 491-1035/ 523) -36.9 E17-E13 S23-S20
     18  798  382 (S25E33 L=114)   269     80        1 ( 779/ 351- 829/ 422)  38.7 E35-E29 S27-S23
     19  846  215 (S39E42 L=105)  1993    192        5 ( 771/ 166- 918/ 293)  16.7 E52-E32 S42-S34
     20 1347  252 (S55E03 L=145)   382     29        0 (1318/ 239-1374/ 266) -38.7 E05-W00 S56-S52
  

    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