Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  494 1610 (N28E45 L=135)   436    131        1 ( 440/1577- 553/1643)  35.5 E48-E39 N25-N30
      2 1375 1474 (N26W19 L=199)   913    208        0 (1292/1401-1449/1537) -32.5 W13-W24 N21-N29
      3  628 1332 (N11E27 L=153)  1511    396        5 ( 486/1187- 752/1470) -40.1 E38-E17 N02-N18
      4  889 1390 (N16E11 L=169)   918    224        4 ( 811/1339- 949/1463)  -6.3 E16-E07 N12-N20
      5 1406 1272 (N13W21 L=202)   284    154        0 (1351/1250-1446/1316)  23.2 W17-W24 N11-N16
      6 1825 1202 (N14W55 L=235)   625     59        1 (1787/1169-1857/1228)   0.0 W51-W58 N11-N15
      7  460  913 (S15E35 L=145)  1202    319        2 ( 403/ 791- 516/1028)  55.3 E40-E31 S22-S08
      8 1896  983 (N02W64 L=244)   960     67        2 (1869/ 950-1923/1017) -31.0 W60-W67 N00-N04
      9  839  859 (S16E10 L=170)  1655    567        3 ( 658/ 778-1049/ 917)  14.6 E21-W02 S21-S12
     10 1764  822 (S09W52 L=233)   279     57        1 (1746/ 791-1786/ 853)  76.0 W51-W53 S11-S07
     11 1671  768 (S14W46 L=226)   424    103        0 (1647/ 723-1696/ 815)  80.5 W44-W46 S16-S10
     12  713  722 (S25E18 L=162)   256     93        0 ( 685/ 680- 744/ 765)  56.3 E19-E15 S28-S22
     13  458  677 (S30E38 L=142)   355     42        0 ( 437/ 648- 474/ 712)  63.4 E39-E35 S31-S27
     14 1601  439 (S34W54 L=234)   523    103        1 (1552/ 400-1631/ 472)  -9.5 W47-W59 S36-S32
     15 1147  417 (S42W16 L=196)   522    125        0 (1103/ 375-1207/ 461) -24.4 W11-W22 S44-S39
  

    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